home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / menu.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  1.1 KB  |  40 lines
  1. on exitFrame
  2.   global flg
  3.   if soundBusy(1) then
  4.   else
  5.     puppetSound("menu.aiff")
  6.   end if
  7.   updateStage()
  8.   if flg = 0 then
  9.     set h4 to the locH of sprite 4
  10.     set v4 to the locV of sprite 4
  11.     set the locH of sprite 4 to h4 + 1
  12.     set the locV of sprite 4 to v4 + 1
  13.     set h3 to the locH of sprite 3
  14.     set v3 to the locV of sprite 3
  15.     set the locH of sprite 3 to h3 - 1
  16.     set the locV of sprite 3 to v3 - 1
  17.     set h5 to the locH of sprite 5
  18.     set v5 to the locV of sprite 5
  19.     set the locH of sprite 5 to h5 - 1
  20.     set the locV of sprite 5 to v5 - 1
  21.     set flg to 10
  22.   else
  23.     set h4 to the locH of sprite 4
  24.     set v4 to the locV of sprite 4
  25.     set the locH of sprite 4 to h4 - 1
  26.     set the locV of sprite 4 to v4 - 1
  27.     set h3 to the locH of sprite 3
  28.     set v3 to the locV of sprite 3
  29.     set the locH of sprite 3 to h3 + 1
  30.     set the locV of sprite 3 to v3 + 1
  31.     set h5 to the locH of sprite 5
  32.     set v5 to the locV of sprite 5
  33.     set the locH of sprite 5 to h5 + 1
  34.     set the locV of sprite 5 to v5 + 1
  35.     set flg to 0
  36.   end if
  37.   updateStage()
  38.   go(the frame)
  39. end
  40.